Datos SEGMENT
z DB 0,0,0,0,0,0,0,0,0,0
array DD 0,0,0
x DB 0
y DB ?
c DB ?
MSG0 DB 4 0AH,0DH,'$'
cadena DB ?
n DB ?
Datos ENDS
codigo SEGMENT
main PROC FAR
ASSUME CS:codigo, DS:Datos
MOV AX, [x]
MOV BX, [y]
ADD AX, BX
MOV [x],AX
MOV AX,2
MOV BX,3
MUL BX
MOV [x],AX
MOV AX,3
MOV BX,4
DIV BX
MOV [x],AX
MOV AX, 4
MOV BX, 2
ADD AX, BX
MOV [y],AX
MOV AH, [y]
MOV BH, [x]
CMP AH, BH
JL #fin0

MOV AX,1
MOV BX,3
MUL BX
MOV [x],AX
MOV AX, [x]
MOV BX, 1
ADD AX, BX
MOV [x],AX
#fin0:

MOV AX,1
MOV BX,3
MUL BX
MOV [x],AX

mov dx,OFFSET Msg0
mov ah,9
int 21h
main ENDP
prueba PROC FAR
MOV AX,2
MOV BX,3
DIV BX
MOV [x],AX
prueba ENDP
prueba1 PROC FAR
MOV AX,@data
MOV DS,AX
while:
JG endwhi
MOV AX, 2
MOV BX, 1
ADD AX, BX
MOV [a],AX
endwhi:
prueba1 ENDP
CODIGO ENDS
END main
